home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GeoThek Programme (19xx)(-)(de)[gt106b].d64 / prgtogeos2 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  62 lines
  1. 50 INPUT"PROGRAM FILENAME";F$
  2. 60 INPUT"YEAR             (EX: 87)";Y
  3. 70 INPUT"MONTH            (EX:  5)";MO
  4. 75 INPUT"DAY              (EX: 31)";DA
  5. 80 INPUT"HOUR             (EX: 18)";H
  6. 85 INPUT"MINUTE           (EX: 30)";MI
  7. 100 OPEN15,8,15,"I:0"
  8. 110 OPEN2,8,2,"#"
  9. 120 T$=CHR$(18):S$=CHR$(1)
  10. 122 GOSUB1000
  11. 124 GET#2,NT$,NS$
  12. 125 FORE=0TO7
  13. 130 GOSUB3000
  14. 133 IFD$=F$THEN175
  15. 135 NEXTE
  16. 137 IF NT$=""THEN175
  17. 140 T$=NT$:S$=NS$:GOTO122
  18. 175 IFD$=""THEN880
  19. 177 DT$=T$:DS$=S$
  20. 180 T$=HT$:S$=HS$:GOSUB1000
  21. 190 GET#2,MT$,MS$
  22. 210 FORI=2TO67
  23. 220 GET#2,B$
  24. 230 NEXT I
  25. 240 GET#2,CT#
  26. 250 GET#2,GT$
  27. 260 GOSUB1000
  28. 270 PRINT#2,CHR$(0);CHR$(255);
  29. 280 PRINT#2,CHR$(3);CHR$(21);
  30. 290 GOSUB2000
  31. 300 T$=DT$:S$=DS$:GOSUB1000
  32. 310 FORI=0TO32*E+1
  33. 320 GET#2,B$
  34. 330 NEXT I
  35. 340 PRINT#2,MT$;MS$;
  36. 350 FORI=1TO16
  37. 360 GET#2,B$
  38. 370 NEXT I
  39. 380 PRINT#2,HT$;HS$;CHR$(0);GT$;
  40. 385 PRINT#2,CHR$(Y);CHR$(MO);CHR$(DA);
  41. 387 PRINT#2,CHR$(H);CHR$(MI);
  42. 390 GOSUB2000
  43. 880 CLOSE2
  44. 890 CLOSE15
  45. 900 END
  46. 1000 PRINT#15,"U1";2;0;ASC(T$);ASC(S$)
  47. 1010 RETURN
  48. 2000 PRINT#15,"U2";2;0;ASC(T$);ASC(S$)
  49. 2010 RETURN
  50. 3000 D$=""
  51. 3012 GET#2,B$:I=1
  52. 3013 IFB$=""THEN3050
  53. 3014 IFASC(B$)<>130 THEN3050
  54. 3016 GET#2,HT$,HS$:I=3
  55. 3020 GET#2,B$:I=I+1
  56. 3030 IF ASC(B$)=160THEN3050
  57. 3040 D$=D$+B$:GOTO3020
  58. 3050 FORI=1TO31
  59. 3060 GET#2,B$
  60. 3070 NEXTI
  61. 3080 RETURN
  62.